home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0493 / REBOOT.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-29  |  670b  |  30 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 595 of 708
  3. From : Reynir Stefansson                   2:391/20.0           14 Apr 93  17:33
  4. To   : All
  5. Subj : Reboots, warm or cold.
  6. ────────────────────────────────────────────────────────────────────────────────
  7.      For anyone wondering how to reboot a PClone from within Turbo Pascal: }
  8.  
  9. UNIT Reboot;
  10.  
  11. INTERFACE
  12.  
  13. PROCEDURE ColdStart;
  14. PROCEDURE WarmStart;
  15.  
  16. IMPLEMENTATION
  17.  
  18. PROCEDURE ColdStart;
  19. BEGIN
  20.    MemW[$40:$72] := 0;
  21.    Inline($EA/0/0/$FF/$FF);
  22. END;
  23.  
  24. PROCEDURE WarmStart;
  25. BEGIN
  26.    MemW[$40:$72] := $1234;
  27.    Inline($EA/0/0/$FF/$FF);
  28. END;
  29.  
  30. END.